*&---------------------------------------------------------------------*
*& 包含               ZFIU024_TOP
*&---------------------------------------------------------------------*
TABLES:ZFIT078_HEAD,ZFIT079_HEAD.
TYPES: BEGIN OF TY_JSD_DATA,
         JSDDH     TYPE ZFIT079_HEAD-JSDDH,
         JSDHH     TYPE ZFIT079_ITEM-JSDHH,
         ZFPHM     TYPE ZFIT079_HEAD-ZFPHM,
         ZYSFPHM   TYPE ZFIT079_ITEM-ZYSFPHM,
         ZYWLX     TYPE ZFIT079_HEAD-ZYWLX,
         ZYWLX_TXT TYPE TEXT20,
         JSDLX     TYPE ZFIT079_HEAD-JSDLX,
         JSDLX_TXT TYPE TEXT20,
         JSDZT     TYPE ZFIT079_HEAD-JSDZT,
         JSDZT_TXT TYPE TEXT20,
         ZFPLX     TYPE ZFIT079_HEAD-ZFPLX,
         ZKPSJ     TYPE ZFIT079_HEAD-ZKPSJ,
         BUKRS     TYPE ZFIT079_HEAD-BUKRS,
         ZGFMC     TYPE ZFIT079_HEAD-ZGFMC,
         LIFNR     TYPE ZFIT079_HEAD-LIFNR,
         ZXFMC     TYPE ZFIT079_HEAD-ZXFMC,
         ZHSJE     TYPE ZFIT079_HEAD-ZHSJE,
         ZHJSE     TYPE ZFIT079_HEAD-ZHJSE,
         ZBHSJE    TYPE ZFIT079_HEAD-ZBHSJE,
         BELNR     TYPE ZFIT079_HEAD-BELNR,
         GJAHR     TYPE ZFIT079_HEAD-GJAHR,
         CRNAM     TYPE ZFIT079_HEAD-CRNAM,
         CHDAT     TYPE ZFIT079_HEAD-CHDAT,
         CHTIM     TYPE ZFIT079_HEAD-CHTIM,
       END OF TY_JSD_DATA.
DATA:
  GV_ERROR    TYPE C,
  GT_JSD_DATA TYPE TABLE OF TY_JSD_DATA WITH HEADER LINE.

DATA:
  GO_TAX    TYPE REF TO ZFIDL004.

CONSTANTS:
  GC_CONCATE_CHAR TYPE C VALUE ':'.

SELECT-OPTIONS:
  S_JSDDH FOR ZFIT079_HEAD-JSDDH NO INTERVALS,
  S_ZFPHM FOR ZFIT078_HEAD-ZFPHM NO INTERVALS,
  S_BELNR FOR ZFIT079_HEAD-BELNR NO INTERVALS NO-EXTENSION,
  S_GJAHR FOR ZFIT079_HEAD-GJAHR NO INTERVALS NO-EXTENSION,
  S_DATE  FOR SY-DATUM OBLIGATORY NO-EXTENSION.

SELECTION-SCREEN BEGIN OF LINE .

  PARAMETERS P_SUBMIT RADIOBUTTON GROUP R1 DEFAULT 'X' USER-COMMAND UCOMM1.
  SELECTION-SCREEN COMMENT 3(35) FOR FIELD P_SUBMIT.

  PARAMETERS P_SYSNC   RADIOBUTTON GROUP R1.
  SELECTION-SCREEN COMMENT 40(35) FOR FIELD P_SYSNC.

SELECTION-SCREEN END OF LINE.

PARAMETERS: P_NOHZ AS CHECKBOX DEFAULT 'X'.

PARAMETERS: P_SEND AS CHECKBOX.
